1 CALL CLEAR::E$="007C40784C7C"::CALL CHARPAT(65,A$,81,Q$,87,W$,90,Z$,97,A1$,113,Q1$,119,W1$,122,Z1$)::CALL CHAR(81,A$,87,Z$,65,Q$,90,W$)
2 CALL CHAR(113,A1$,119,Z1$,97,Q1$,122,W1$,37,"1824"&E$,41,"300C0038447C4444",64,"0C30"$E$,38,"300C"&E$)::ON WARNING STOP::PRINT" REQDY QWERTY X":I/O